/* GCW 02/03/94 */
/* get substring of s at f-th character of length l */

#ifndef _string_mid
#define _string_mid 1
#endif

mid(s,f,l)  
{
    local len,r,i;
    len = sizeof(s) - f;
    if (l > len)
        l = len;
    if (l <= 0) return "";
    r = newstring(l);
    for (i = 0; --l >= 0; )
        r[i++] = s[f++];
    return r;
}
